home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 October / 64er_Magazin_84-10_1984_Markt__Technik_de.d64 / Diskontieren ein (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  140 lines
  1. 8 poke45,peek(174):poke46,peek(175):clr
  2. 9 clr:dima$(15),a(15):goto1000
  3. 10 z1=3:z2=9:s=13:rem * maske loeschen *
  4. 20 forz=z1toz2:gosub90:print"                          ":next:ifc=0thenreturn
  5. 30 z1=12:z2=20:c=0:goto20
  6. 50 return
  7. 70 a$(12)=str$(int(a(12)*100+.5)):rem * runden
  8. 75 ab$=left$(a$(12),len(a$(12))-2)+"."+right$(a$(12),2):return
  9. 80 load"menue",8:rem *load menue
  10. 90 poke214,z:poke211,s:sys58732:return:rem * cursorposition
  11. 95 a=55869:fori=1597to1622:pokei,100:pokea,1:a=a+1:next:return
  12. 100 rem * auswahlroutine *
  13. 110 gosub90:print"           [146]":fori=1to75:nexti
  14. 120 gosub90:print""a$(y)"[146]":fori=1to125:next
  15. 130 getg$:ifg$<>chr$(133)andg$<>chr$(134)andg$<>chr$(135)andg$<>chr$(13)then110
  16. 140 ifg$=chr$(133)andcthenc=0:return
  17. 150 ifg$=chr$(13)thengosub90:print">[146]":return
  18. 160 ifg$=chr$(135)then190
  19. 170 z=z+sw:y=y+1:ifz>z2thenz=z1:y=y1
  20. 180 goto110
  21. 190 z=z-sw:y=y-1:ifz<z1thenz=z2:y=y2
  22. 195 goto110
  23. 200 rem * wahl-fusszeile *:s=0
  24. 210 z=23:gosub90:print"          [146]";:fori=1to75:next
  25. 220 gosub90:print""ba$(y)"[146]";:fori=1to175:next
  26. 230 getg$:ifg$<>chr$(134)andg$<>chr$(135)andg$<>chr$(13)then210
  27. 240 ifg$=chr$(13)thengosub90:print">[146]";:return
  28. 250 ifg$=chr$(135)then280
  29. 260 s=s+10:y=y+1:ifs>31thens=0:y=1
  30. 270 goto210
  31. 280 s=s-10:y=y-1:ifs<0thens=30:y=4
  32. 290 goto210
  33. 300 rem * eingaberoutine *
  34. 310 gosub90
  35. 320 in$=""
  36. 330 print"[162][157]";
  37. 340 getg$:ifg$=""then340
  38. 350 g=asc(g$):ifg=13then460
  39. 360 ifg=13thenreturn
  40. 370 ifg$<"0"org$>"9"then420
  41. 380 in$=in$+g$
  42. 390 printg$;
  43. 400 iflen(in$)>nthenfori=1tolen(in$):printchr$(20);:next:goto320
  44. 410 goto330
  45. 420 ifg=46then380
  46. 425 ifg$=chr$(133)then9
  47. 430 ifg<>20then330
  48. 440 iflen(in$)<1then330
  49. 450 in$=left$(in$,len(in$)-1):goto390
  50. 460 pn$="":fori=1to(10-len(in$)):pn$=pn$+".":next:printpn$
  51. 470 iflen(in$)<1then310
  52. 480 return
  53. 999 :
  54. 1000 rem ** dikontieren **
  55. 1010 gosub5000:printma$
  56. 1020 a=55388:fori=1076to1906step40:pokei,101:pokea,1:a=a+40:next
  57. 1030 a=55736:fori=1464to1474:pokei,100:pokea,1:a=a+1:next
  58. 1040 a=55749:fori=1477to1502:pokei,100:pokea,1:a=a+1:next
  59. 1050 z=23:s=0:gosub90:printmb$
  60. 1060 z=3:gosub90:print"[193]uswahl :":print"[163][163][163][163][163][163][163][163][163]"
  61. 1070 z=5:fori=1to5:gosub90:print""a$(i)"[146]":z=z+1:next
  62. 1080 z=5:z1=z:z2=9:s=0:y=1:y1=y:y2=5:sw=1:c=0:gosub100:f=y:iff=5then80
  63. 1150 iff=1thena$(9)=kn$:a$(10)=p$:a$(11)=ja$:k=1
  64. 1160 iff=2thena$(9)=kb$:a$(10)=p$:a$(11)=ja$:k=1
  65. 1170 iff=3thena$(9)=kn$:a$(10)=kb$:a$(11)=ja$:k=0
  66. 1180 iff=4thena$(9)=kn$:a$(10)=kb$:a$(11)=p$:k=2
  67. 2000 rem * eingabemaske *
  68. 2010 z=3:s=13:gosub90:print"[197]ingabe :":z=4:gosub90:print"[163][163][163][163][163][163][163][163][163]"
  69. 2020 z=5:fori=9to11:s=13:gosub90:print""a$(i)"[146] : ";pm$
  70. 2030 z=z+2:next:z=23:s=0:gosub90:printmc$
  71. 2040 z=5:s=27:n=10:gosub300:a(9)=val(in$)
  72. 2050 z=7:gosub300:a(10)=val(in$)
  73. 2060 z=9:gosub300:a(11)=val(in$)
  74. 2070 z=13:s=13:gosub90:print"[197]ingabe korrekt ? (j/n):":gosub95
  75. 2080 z=13:s=38:gosub90:print"[162][157]";
  76. 2090 getg$:ifg$<>"j"andg$<>"n"then2090
  77. 2100 printg$:ifg$="j"theny=1
  78. 2110 ifg$="n"theny=0
  79. 2120 geti$:ifi$<>chr$(13)andi$<>chr$(20)then2120
  80. 2130 ifi$=chr$(20)then2080
  81. 2140 c=1:gosub10:ify=0then2010
  82. 3000 rem * rechnung *
  83. 3010 iff=1thena(12)=a(9)*(1/(1+(a(10)/100))^a(11))
  84. 3020 iff=2thena(12)=a(9)/(1/(1+(a(10)/100))^a(11))
  85. 3030 iff=3thena(12)=((a(9)/a(10))^(1/a(11))-1)*100
  86. 3040 iff=4thena(12)=log(a(9)/a(10))/log(1+(a(11)/100))
  87. 3500 rem * bildschirm
  88. 3510 z=3:s=13:gosub90:print"[197]ingabe :":z=4:gosub90:print"[163][163][163][163][163][163][163][163][163][163]"
  89. 3520 z=5:fori=9to11:gosub90:printa$(i)" :"a(i):z=z+2:next
  90. 3530 z=13:gosub90:print"[210]esultat :":z=14:gosub90:print"[163][163][163][163][163][163][163][163][163][163]":gosub70
  91. 3540 z=16:gosub90:print""a$(f)"[146] :";:printtab(38-len(ab$));ab$
  92. 3550 printtab(39-len(ab$));:fori=1tolen(ab$)-1:print"=";:next
  93. 3560 z=20:gosub90:ifk=1thenprint"[193]usdruck in [196][205][160]!":goto3580
  94. 3570 ifk=0thenprint"[193]usdruck in [208]rozent !"
  95. 3580 z=23:s=0:gosub90:fori=1to4:print""ba$(i)"[146]";:next
  96. 3590 y=1:gosub200:ify=4then80
  97. 3600 ify=3then1010
  98. 3610 ify=2then4500
  99. 4000 rem * aenderung *
  100. 4010 c=1:gosub10
  101. 4020 z=3:s=13:gosub90:print"[193]enderung :":z=4:gosub90:print"[163][163][163][163][163][163][163][163][163][163][163]"
  102. 4030 z=5:s=13:fori=9to11:gosub90:print""a$(i)"[146] :";a(i):z=z+2:next
  103. 4040 z=23:s=0:gosub90:printmd$;
  104. 4050 z=5:z1=z:z2=9:s=13:y=9:y1=y:y2=11:sw=2:c=1:gosub100
  105. 4060 ifc=0thengosub10:goto3000
  106. 4070 z=13:s=13:gosub90:print""a$(y)"[146] : "pm$:gosub95
  107. 4080 z=23:s=0:gosub90:printmc$;:z=13:s=27:gosub300:a(y)=val(in$):goto4010
  108. 4500 rem * ausdruck *
  109. 4505 ta$=chr$(10):tb$=chr$(16)
  110. 4510 open4,4,7:print#4,chr$(14);tb$"10[196][201][211][203][207][206][212][201][197][210][197][206] [197][201][206][197][211][160][203][193][208][201][212][193][204][211]"
  111. 4520 print#4,tb$"10---------------------------"ta$
  112. 4530 fori=9to11:print#4,chr$(15);tb$"10*** "a$(i)" : ";a(i):next
  113. 4540 gosub70:print#4,ta$;tb$"14"a$(f)" : "ab$
  114. 4550 print#4,tb$"15";:fori=1to2+len(a$(f)+ab$):print#4,"=";:next
  115. 4560 print#4,ta$;ta$;ta$
  116. 4570 print#4,chr$(13);tb$"10***   [197]ndkapital und [194]arwert werden";
  117. 4580 print#4," in ' [196][205] ' ausgedruckt,"
  118. 4590 print#4,tb$"16der [218]inssatz in ' % ' !"
  119. 4600 print#4:fori=1to40:print#4,"==";:next:print#4,ta$;ta$;ta$;ta$
  120. 4610 close4:fori=56176to56215:pokei,0:next:goto3580
  121. 5000 rem * variablenliste *
  122. 5010 ma$="[147]      [196][201][211][203][207][206][212][201][197][210][197][206][160][197][201][206][197][211][160][203][193][208][201][212][193][204][211]      [146]"
  123. 5020 mb$=" [198]3 u. [198]5 - [215]ahl ! '[210][197][212][213][210][206]' - [197]ingabe ![146]"
  124. 5030 mc$="  [198]1 - [206]eu !      [199]eben [211]ie ein !      [146]"
  125. 5040 md$=" [198]1 - [210]esultat !     [198]3 u. [198]5 - [215]ahl ! [146]"
  126. 5050 kn$=" [197]ndkapital":p$="  [218]inssatz ":ja$="  [202]ahre    ":pm$=".........."
  127. 5060 kb$="  [194]arwert  "
  128. 5110 ba$(1)="  [193]endern "
  129. 5120 ba$(2)="  [203]opie   "
  130. 5130 ba$(3)="  [206]eu     "
  131. 5140 ba$(4)=" [205]enue    "
  132. 5510 a$(1)="  [194]arwert  "
  133. 5520 a$(2)=" [197]ndkapital"
  134. 5530 a$(3)="  [218]inssatz "
  135. 5540 a$(4)="  [204]aufzeit "
  136. 5550 a$(5)="  [205]enue    "
  137. 5590 a$(13)="  [193]endern  "
  138. 5600 a$(14)="  [210]esultat "
  139. 5610 a$(15)="  [205]enue    ":return
  140.